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11/ F OVSSCOPY-MAR Edit: SBL1011 | 
MARRARBRARAALASLALALALALALLALELALESER ESSERE REE ERE RE SESE E EE EE REE ASRS E EEE ESOS SAE SG 
COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE a pyri enee nee: A LICENSE AND MAY of USED AND COPIED 
E WITH THE MS OF SUCH LICEN AN TH THE 


0 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OOoOoooooooooooooooooo 


SOoOOOCSCCSOSOOSCSOOCOCSOOSOSCOOSCOOCOOOOOOOOOOOOOoOO 
fe ne ne nee) ew we ola lolol alelaololalalelelelelelelelelolololalolololololo) 


+ 
® 
® 
® 
* i 
+ ' 
oo | 
* 
~ | 
0 a 
RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * | 
* 
; 
e | 
® 
® 
* 
*® 
* 
* 
* 
* 


. ee 
eeoeeeeeeeeeeneeeeeees 


LARRARASLARSAARAAAAAAAAAREAAALALASASESESARRER EASES SLES R REESE SEER RR RAR ARRAS SS 


FACILITY: Language-independent support: string handling 
ABSTRACT: 


This module contains routines to allocate and deallocate 
strings. These entry points were in VMS release 1, before 
snore was a poperese afhcrns ‘ot ne they are “bein 
tained for compatab ty; 
(iesscert DD_R6, OTaSSERE 1 ppee tad “TIBSSE 
aie module also qenteres | the routines to do $s ye Re copying 
OTS$ semantics. are implemented by cal 
Utes COPY *DXDKO and tresse PY_R_DX6. 


ENVIRONMENT: VAX-11 User Mode 
AUTHOR: R. Reichert, CREATION DATE: 3-APR-1981 
MODIFIED BY: 


1-001 - Original. Based on Version 1-007 of OTSSCOPY.832. “i the 

addition of the code to accomodate additional classe 

descriptors, necessitating a call to LIBSANALYZE *SDESC oR 

it became Sescopy Bx tg diffi Teutt to sentres the Fegister 

usage in OTSSSCOPY_DXDX6_ and OTSSSCOPY R_DX6. 

tin feck the, original -B32 didn't ea them correctly.) 
1-002 - Revise which error statuses M8, turned into signals in | 

| 
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CHECK_FOR_FATAL. RKR 3-SEP- 


BANAL Ze 8S nspest R3 to 
LIBSANALY E DESC R 198T. 
1-011 = Use general mode “.. at. SBL "30-Nov-1981 


d 3 
TSSSCOPY = String copying module 16-SEP-1984 00:33: AX/VMS Macro V 
ere S-SEp=1986 9:48:57 HC TORTL. SREDOTSSCOPY. MAR; 1 
a8 i 3 1-008 - Original 1opg5cory -832 had a revision history that ra up 

3 through avoid confusion with module idents that 
g are out tn the tield. this module's ident must be at 
; least 1-008. RKR 14-SEP-1981 
; 1-009 = Add special-case code to bets eoer ine descriptor s that 
H Area” "y re, fixed stri ng descri 44H RKR 7-0CT-1981. 
3; 1-010 = Redirec siren, LIBSA 
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04-00 p | 
Stop ase fy 


e 2 
- String copying module 16-SEP-19 0:33:11 wl i . cro V04-00 Page | 
DECLARATIONS © BoSEP-1986 fiit5:07 LLTARTL.sRcaoTSscopy.mars1 “29° (3), 
70 .SBTTL DECLARATIONS | 
0 t t LIBRARY MACRO CALLS: 
44 74 SSSDEF : symbols 
8 f? SOSCDEF : $8 symbols 
009 ? > EXTERNAL DECLARATIONS: 
448 4 ; Prevent undeclared symbols from being automatically global. 
9909 81 ; -DSABL GBL 
44 Hf ; The condition codes and signals we deal with 
0000 84 -EXTRN OTSS$_FATINTERR ; Fatal internal error 
44 2 -EXTRN LIBS_FATERRLIB 3 
0000 87 -EXTRN OTSS_INVSTRDES ; Invalid string descriptor 
4444 Ht: ~EXTRN LIBS~ INVSTRDES 3 
0000 90 -EXTRN OTSS$_INSVIRMEM ; Insufficient virtual memory 
i464 4 »EXTRN LIBS_ INSVIRMEM ; 
4 $8 -EXTRN LIBS_INVARG : Invalid argument 
0000 95 -EXTRN LIBS_WRONUMARG ; Wrong number of arguments 
ti 38 -EXTRN OTS$~ _WRONUMARG : 
444 38 3; The external routines we use 
0000 100 -EXTRN LIBSSTOP 3 pipnet e a fatal error 
0000 101 -EXTRN LIBSSGET1_DD_R6 3 oc. string by descr 
0000 198 -EXTRN LIBSSFREET_DB6 : the 1 by descr. 
0000 10 -EXTRN LIBSSFREEN_DD6 ; Free N bY descr. 
0000 104 EXTRN LIBSSCOPY =DXDX6 ; Copy string by descr 
0000 105 -EXTRN LIBSSCOPY-R_DX6 5 os string by ref. 
0000 106 EXTRN LIBSANALYZE_SDESC_R2 ; Analyze desc to get length and 
B88 4 ; address of data 
Be it | mee 
444 Mi -MACRO SIGNAL_FATAL_ERR ?L1 
8308 118 : This macro checks to see if the current status in RO is a success. 
0 114 ; If so, it continues. If it is not a success, it branches to 
0000 115 ; CHECK_FOR FATAL ERROR for a closer look at the error code. If it 
000 ig 3; it is” found to Be one of a set of fatal errors of interest, the 
000 117 ; corresponding OTS$ error 7s signaled. Else the supplied error code 
BOS 138 ; is signaled. 
0009 120 BLBS RO, L1 . if success code bypass checks 
99 1 BRW CHECK_FOR_FATAL_ERROR ; see if it is one of interest 
a ; .ENDM = SIGNAL_FATAL_ERR 
125 ; 
239 126 ; EQUATED SYMBOLS: 


OTS$SCOPY Strin ing module 16-SEP-1984 00:33:11 VAX/VMS Macro V04-00 p 4 | 
1-011 DECLARATIONS: gree alae ite iay LOTENTS Bacte vote Ce uan:1 2% (5, 


; NONE | 
i OWN STORAGE yan 


.PSECT -OTSSDATA, PIC USR, CON, REL 
EXE, RD. WRT. LONG 


LCL, NOSHR, - 
NONE 
PSECT DECLARATIONS: 


.PSECT _OTSS$CODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT. LONG 
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833 Pocate a dynamic string ety 90:38:3) LIBRTL.SRCJOTSSCOPY.MAR; 1 . 3 
a -SBTTL OTSS$SGET1_DD Allocate a dynamic string 
; FUNCTIONAL DESCRIPTION: 

Allocate a string. LEN bytes are allocated to DESCRIP, which 

is assumed to be a dynamic descriptor. If the descriptor 

already has storage allocated to it, but not enough, the old 

storage is deallocated. 
CALLING SEQUENCE: 

status.wlc.v = OTSSSGETI_DD (LEN. rwu.v, DESCRIP.wqu.r) 


FORMAL PARAMETERS: 
| 


) 


or 
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num 
Are 
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vo 
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LEN. rwu.v The number of bytes to allocate. 
DESCRIP.waqu.r geacrtpter. The DSCSB_DTYPE field is not 
ouched. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
May deallocate the descriptor's storage and allocate new 


gtarege for it. 
May signal OTSS_INSVIRMEM, OTSS_FATINTERR 
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Oa a kh dh 

OOO 00090900 09 09 09 09 09 09 SI NIN NSS NN NNN NP PAA AA AAA A MAINE EE LEE P- 
WN OOD NA UNE WIN OS ODNAU EWN OOD NAME WWI CO OONOUE AN -OWOONOUFSW —3 


; Displacements from AP 

00000004 LEN = 4 

00000008 DESCRIP = 8 
007C sENTRY OTSSSGET1_DD, “M<R2,R3,R4,R5,RO> : Entry point 
50 O04 AC 3 0 MOVZWL LEN(AP), RO ; length desired to RO 
51 08 AC 00 000 OVL  DESCRIP(AP), R1 : descriptor address to R1 | 

00000000'GF 16 0 J$B G“*LIBSSGET1_DD_R6 ; go allocate 
1 SIGNAL_FATAL_ERR ; signal if a fatal error 
04 1 ET ; to caller 


H 3 
OTSSSCOPY = String copying module 16-SEP-1984 00:33: AX/VMS Macro V04-00 Page | OTS! 
a 8ti OTS$SGET1 D YRO Allocate a@ synamic strin bree 1 obec 90: 38:)} UTARTL. SREJOTSSCOPY MAR: 1 . ay "6 
\7 133 “i -SBTTL OTSSSGET1_DD_R6 Allocate a synamic string 
Vf 199 ; FUNCTIONAL DESCRIPTION: 
17 198 3 Allocate a string. LEN bytes are allocated to DESCRIP, which 
017 0; is assumed to be a dynamic descriptor. If the descriptor 
017 . 7 already has storage allocated to it, but not enough, the old 
HEA ¢ 3 storage is deallocated. 
OV : ; CALLING SEQUENCE | 
O17 86 3 status.wilc.v = JSB OTSSSGET1_DD_R6 (LEN. rwu.v, DESCRIP.waqu.r) | 
017 208 ; FORMAL PARAMETERS: | 
0017 09 ; 
0017 10 ; LEN. rwu.v In RO, the number of bytes to allocate. 
0017 7 3 DESCRIP.wqu.e In R1, The descriptor. The DSCSB_DTYPE field 
0(17 \¢ : is not touched. 
0017 13; 
0017 14 ; IMPLICIT INPUTS: 
0017 15 ; 
0017 16 ; NONE 
0017 17; 
0017 18 ; IMPLICIT OUTPUTS: 
0017 19 ; | 
0017 20 ; NONE 
0017 $3 3 
0017 ¢ ; ROUTINE VALUE: 
0017 ; COMPLETION CODES: | 
0017 4; 
0017 395: NONE | 
0017 6 ; 
0017 44 3; SIDE EFFECTS: 
0017 8 ; 
0017 $3 3 May deallocate the descriptor's storage and allocate new 
0017 o ; storage for it. 
0017 3! 3 May signal OTSS_INSVIRMEM or OTSS$_FATINTERR 
0017 § 3 
0017 37° 
Bole 4 
017 5 OTSSSGET1_DD_R6:: 
0017 H 
=- 2D. ODA MOVZWL RO, RO ; extract words worth of Length 
an 3 ; R1 already contains address of 
Bata rt ; descriptor 
} 
00000000'GF 16 OIA 4g JSB G*LIBSSGET1_DD_R6 ; go allocate 
$30 4 SIGNAL_FATAL_ERR ; Signal error if a fatal one 
05 0026 4G RSB ; return to our caller 
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1 mip ; 00: 33:)1 AX/VMS Macro V04-00 


~SBTTL OTSSSFREE1_DD Deallocate a dynamic string 


CALLING SEQUENCE: 


FORMAL PARAMETERS: 
DESCRIP.waqu.r 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


May deallocate 
May signal OTS$ 


Bete Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Fe Ge Se Se Ge Ge Se Se Ge Se Se Se 


3; Displacements from AP 

DESCRIP = 4 
-ENTRY OTSS$ 
MOVL 


Vv 


++ 
FUNCTIONAL DESCRIPTION: 


Deallocate a string, 
If it isn't, LIBSSFREE1_DD6 will take care of it. 


The string is assumed to be dynamic. 


status.wic.v = OTSSSFREE1_DD (DESCRIP.waqu.r) 


The descriptor of the string to deallocate. 


“M<R2,R3,R4,R5,R6> : Entry point 


D 
R ; address of descriptor to RO 
E1_pD6 ; go free string 
; Signal if error is fatal 
; to caller 


LIBRTL.SRCJOTSSCOPY.MAR; 1 
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AD pct 
1-011 allocate a dynamic stri 6=SEP=-1 LIBRTL.SRCJOTSSCOPY.MAR; 1 ( 


args ) 
~SBTTL OTSSSFREE1_DD6 Deallocate a dynamic string 
: FUNCTIONAL DESCRIPTION: 


Deallocate a strin 


| 
| 
| 
af dt ientt. CIGSSPREET BOS wilt Cake core of tee me 
: CALLING SEQUENCE: | 
status.wic.v = JSB OTSSSFREE1_DD6 (DESCRIP. wqu.r) | 
FORMAL PARAMETERS: 


DESCRIP.wqu.e In RO, the descriptor of the string to 
deallocate. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUIS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


May deallocat 
May signal OT 


OTSSSFREE1_DD6: : 
; RO already contains address of 
; descriptor to be freed 
; go free string 
; check for fatal error 
; return to our caller 


QOO00000'GF 16 
05 


JSB G*LIBSSFREE1_DD6 
2} aaa FATAL_ERR 


COOOOOCOCOCOSOSOOOSOSOSOOSOSOOOOOOOOOO OOOO OOOOOOOOOOO 
GOOOOCOOCOSOSOSOSOSOSSSOOSCOCCOSOOCOOOCOOOOOOOOOOOOOoOoOO 


SSAA AAAI AWA Ww 
WINIIPIPIPINININININININ 4 2 2 PO SS SH DOOOOOOCOCOCOCOVOOOOOOOO 


oor,r>r>r>r?rr?rrrrrrrrrr>r>rr rr rr rrrrrrrrrrrrr>r>, 
MH OODNAMUE WIN $$ 9 ODNAOUE WN OOO NOAU EWN O OONOUS wr 


4 

8 
“oe 
at 
=. 
> 
—_ 
zo 
—— 
m 
zw 
Deo 

Pete Oe Oe & 


a 


kK 3 
TS$SCOP - i - 233: 
arte . OTSs Sic REE ND BS Ticats N Dynamic Strin batt 9 90: 33:3) ttORT. ato TS Hs 


-SBTTL OTSSSFREEN_DD Deallocate N Dynamic Strings 
FUNCTIONAL DESCRIPTION: 


-00 Page 
SSCOPY.MAR; 1 ° 3) 


Deallocate a number of strings. The strings are all assumed 


te bee dynantc.. If not, LTBSPREE! _DD6 will eventually take care 
em, 
; CALLING SEQUENCE: 
status.wic.v = OTSSSFREEN_DD (NUM_DESC.rwu.v, DESC_PTR.wqu.r) 
; FORMAL PARAMETERS: 


NUM_DESC.rwu.v The number of descriptors to deallocate. 
DESC_PTR.wqu.r The first of these descriptors. 


:* | 
: | 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
; NONE | 
: 
: | 

| 

| 

} 


; ROUTINE VALUE: 
COMPLETION CODES: 


SS$_NORMAL 
SIDE EFFECTS: 
May deallocate virtual storage. 
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3; Displacements from AP 


DODD SIN NSS DDD DD DDD OD TU BS BS BE EE EAI 
=O ODONAMU EWN OS OD NAME WIN @ OS ODNAUE WN SO OONAUES WIN OOONOUS 


SOOOSCOCOCOOOSOOSOOSOSOSOSOOSOOOOOSOSOOOOOOSOOOOOOOOOOOOOOOOOOOO 
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00000004 NUM_DESC = 4 
00000008 DEST_PTR = 8 
007C serene OTSSSFREEN_DD, tetas R3, R4, RS,R6> ; Entry point 
50 04 aC 7D OVO. NUM_DESC(AP), ; number of desc ==> RO 
: address of first desc ==>R1 
00000000'GF 16 JSB G*LIBSSFREEN_DD6 : go free N descriptors 
SIGNAL _FATAL_ERR : check for fatal error 
04 RET 3; to caller 


ROUTINE VALUE: 
COMPLETION CODES: 


SS$_NORMAL 
SIDE EFFECTS: 


. 
OTSSSCOPY = String copying module 16-SEP-1984 00:33: AX/VMS Macro V04-00 
91843 OTSSSFREEN. DDG Beat locate N Dynamic Stri aes 00:78: LIBRTL.SRCJOTSSCOPY.MAR; 1 
‘od ~-SBTTL OTSSSFREEN_DD6 Deallocate N Dynamic Strings 

: FUNCTIONAL DESCRIPTION: 

: Deallocate a number of strings. The strings are all assumed 

3 to be dynamic. If they aren't, eventually LIBSSFREE1_DD6 wil 
3 ; take care of them. 
; ; CALLING SEQUENCE: 
: ; status.wic.v = JSB OTSS$SFREEN_DD6 (NUM_DESC.rl.v, DESC_PTR.wqu.r) 
: : FORMAL PARAMETERS: 
9 : NUM_DESC.rl.v In RO, the number of descriptors to deallocate. 
: 5 DESC_PTR.wqu.r In R1, the address of first of these descriptors 
0 : IMPLICIT INPUTS: 

: NONE 

: IMPLICIT OUTPUTS: 

: NONE 

: May deallocate virtual storage. 

; May signal OTSS_FATINTERR 

OTSSSFREEN_DD6:: 

00000000'GF 16 S$ G*LIBSSFREEN_DD6 ; let LIBSSFREEN_DD6 do it 
RR ; check for fatal error 
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SIGNAL_FATAL_E 
RSB 


05 3; return to caller. 
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at OTSSSCOPY DKDX fopy String by Descriptor mats y 00: 78:3} LIBRTL.SRCJOTSSCOPY.MAR; 1 ” (9) | 
24 ; 5 ne -SBTTL OTSSSCOPY_DXDX Copy String by Descriptor | 
és 4 5 ; FUNCTIONAL DESCRIPTION: 
: § : : Copy any supported class string passed by descriptor to any 
of ? 9 : supported class string. 
067 43¢ ; CALLING SEQUENCE: | 
Oper 2 : ; status.wlc.v = OTSSSCOPY_DXDX (SRC_DESC.rt.dx, DEST_DESC.wt.dx) 
does 4 : ; FORMAL PARAMETERS: 
067 4 8 : SRC_DESC.rt.dx The source descriptor. 
0067 439; DEST_DESC.wt.dx The destination descriptor. The class and dtype 
Bee rr : fields are not disturbed. 
0067 A4e > IMPLICIT INPUTS: 
0067 443 ; 
SE le da 
0067 446 : IMPLICIT OUTPUTS: 
0067 447 ; 
Se ae 
0067 450 ; ROUTINE VALUE: 
boc $2) ; COMPLETION CODES: | Rect 
Bne) 438 : The number of bytes of the source not moved to the destination. “$28 
0067 45 : SIDE EFFECTS: | a 
bee) 457 : May allocate and deallocate virtual storage. 
067 458 ; May signal OTSS$_INVSTRDES, OTSS_INSVIRMEM, or OTSS$_FATINTERR. Ther 
Bpes 459 ; 
Ber Het = 
Beep re ; Displacements from AP 
00000004 67 464 SRC_DESC = 4 
00000008 of re DEST_DESC = 8 
007C¢ 9th is? * ENTRY OTSSSCOPY_DXDX, “M<R2,R3,R4,R5,RO> ; Entry point 
31 tS ; Copy string using LIBSSCOPY_DXDX6 | 
50 O04 AC 7D O69 471 ° MOVa SRC_DESC(AP), RO ; load RO and R1 with addresses 
6D ri) 3 source and destination 
6D 47 ; descriptors 
00000000'GF 16 3 474 JSB G*LIBSSCOPY_DXDX6 ; go copy strin 
475 SIGNAL_FATAL_ERR ; check for fatal error 
8 138 + 
09 478 : Compute Length of source string and save it in R4 
7 479 ; (no need to check status after call to LIBSANALYZE tte R2. If 
79 rt 3; there was anything wrong with source descriptor, CIBSSCOPY_DXDX6 | 
79 481 ; would already have complained about it.) 


or 
= 

wouwn 
} nae 


we —WwOoTg 
On —OPrp—oO 


ROD Da ae 2 ODODE OD 


5 
0 
5 


; 
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482 ;- 
4 i MOVL SRC_DESC(AP), RO ress of source descr. 
4 , CHP psc CSB_CLASS(RO), #DSCSK iiSST ; read Like fixed ? 
4 g MOVZWL DSscsw_ LENGTH(RO), ; Length - > RS 
? BRB 3 join common flow 
4 § 1$: JSB G*LIBSANALYZE_SDESC_R2 ; extract Length of source 
rh MOVZWL R1, R4 ; length of source string 
492 ; 
198 3° ; Compute Length of destination string 
494 ; (mo need to check status after calle to L IBSANALYZE SDESC_R2. If 
495 ; there was anything wrong with Gestingt on descriptor, LIBSSCOPY_DXDX6 
138 ; would already have complained about it. 
498 28: MOVL  DEST_DESC (AP) ; address of destination descr 
499 CMPB DS¢sB_ EDASS (RO) ° wvscsx -ELASS_D ; peed Like fined 
500 BGTRU $ : 
501 MOVZWL OSCS$W_LENGTH(RO) s Length => R1 
08 OVL DSCSA_ “BOINTER(ROS, RR2 : address => R2 
bz BRB 4$ 3 join common flow 
202 38: JSB G*LIBSANALYZE_SDESC_R2 ; extract length of destination 
209 : At this point, R1 is length of destination, R2 is address of 
208 : destination, and R4 is Length of source. 
10 ; Compute MAX (0, source Length = destination_length). This becomes 
te > the number of unmoved Bytes which must end up in RO. 
ig is: SUBL3 R11, R4&, RO ; source len = destination len 
14 BGEQ 5$ : if positive 
1? 5s CLRL RO 3; else zero 
oh Sige RET 
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i -SBTTL OTSSSCOPY_DXDX6 Copy String by Descriptor 
: FUNCTIONAL DESCRIPTION: 


Copy any supported class string passed by descrip*or to any 
supported class string. 


CALLING SEQUENCE: 


status.wlc.v = JSB OTSSSCOPY_DXDX6 (SRC_DESC.rt.dx, 
DEST_DESC.wt.dx) 


os 


= Stri 
OTSSSC 


FORMAL PARAMETERS: 


SRC_DESC.rt.dx The source descriptor, in RO. 
DEST_DESC.wt.dx The destination descriptor. The class and dtype 
fields are not disturbed. This is in R1. 


SESS ES eee 
BVDOOTOWDWIODODOODOWO@OO@DOWw 


A ANAN NIN AAAI AAA ANI AIA AAA AAA 


IMPLICIT INPUTS: 


None 

IMPLICIT OUTPUTS: 
RO none 24a, unmoved bytes remaining in source 
R1 Address one byte beyond the Last byte in the 

source string that was moved. 

af oeronn one byte beyond the destination string 
ReLeN> ; = Source Length less than destination length 
<p 5 = Source Length equals destination Length 
PSL<C> 1 = Source length LSSU destination Length 


ROUTINE VALUE: 
COMPLETION CODES: 


See IMPLICIT OUTPUTS, above. 
SIDE EFFECTS: 


May allocate and dea te vi ‘ty 


Llocate vir storag 
May signal OTSS$_INVSTRDES, OTSS$ I 


al e. 
NSVIRMEM, OTSS_FATINTERR 


Rete Se Se Be Se Se Oe Be Be Se Se Se Be Ge Se FH FH SH Ss SH Se Ss oe Oe Be Se Se SHS Se Se Se Se Se Se Se Se Se Se Se Se Se Se Oe FHS Sees tease 


; Temp locations on stack 


Sa’ ee bm be ak "ak “ok ah ah oh ah oh ah Ab AL Ab Ab Ab Ah Ab Ab Ah Ab de at ae ee oe et at et ot ee 
MEAN OOO NA UNE WN OS ODNAU ES WN 0 OD NAME WW OO OONOAU EW OOONOUSWR—00 
~ 


00000000 TEMP_SRC_ADDR = 0 
4 TEMP"DST-ADDR = 4 

8 EMPSRC“LEN = = 8 
C TEMP“DST-LEN = = -‘12 
0 STACR_SPRCE = 16 


SOOO COSOOSOOSOSOOOSCOSOSOSOSOOSOOSOOOSOSOSOSOSOSOSOOSOSOOOOOO OOOO OOOOOOOOOOOOO 


Stitt ttt ttt ttt ttt ttt tet ttt 


(DV PV IV IV LDV DV LV LV LLL VIVID LV LULU LULVIV VLU ULUSUSIUSUSUSTSU SISSY 


HAAN. AA. AMA. ANIA AA AAAI AAAI AIA AINA AIAN 


a 
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| 
43 26 OTSSSCOPY_OXDX6:: : 
43 4 ; Save RO (source desc addr) and R1 (dest descr addr) on the stack. ; 
SE 10 C3 08 0° SUBL2 #STACK SPACE, SP ; make space on stack | ; 
2. ee 988 1 MOVL RO, TEMP_SRC_ADDR(SP) =; Save source descr address : 
04 AE 51 00 4 ¢ ‘ MOVL Ri, TEMP_DST_ADDR(SP) ; Save destination descr addr : 
OBD 384 ; Copy string using LIBSSCOPY_DXDXx6 | 
Q0000000'GF 16 008 § ; JSB G*LIBSSCOPY_DXDX6 ; go copy string | : 
3 te SIGNAL_FATAL_ERR ; check for fatai error | : 
00C9 9 : Compute Length and address of source string and save on stack : 
00C9 590 ; (no need to check status after call to LIBSANALYZE_SDESC_R2. If ; 
Q00C9 591 ; there was anything wrong with source descriptor, CIBSSCOPY_DXDXx6 ; 
4 236 ; would already have complained about it.) : 
50 6€ 00 00C9 882 r MOVL TEMP_SRC_ADDR(SP), RO ; address of source descr. : 
02 03 nef +4 49" 232 Hae I DSCSB_CLASS(RO), #DSCSK_CLASS_D ; read Like fixed ? ‘ 
; no $ 
O08 AE 60 3¢ SOb2 238 MOVZWL DSC$W_LENGTH(RO), TEMP_SRC_LEN(SP) : length ; 
6€ 04 A0 00 0006 598 MOVL  DSCSATPOINTER(ROS, TEMP_SRT_ADDR(SP) —; address ; 
Od 11 BaDA 44 BRB 2s ; join common flow : 
OOO00000'GF 16 OO0DC 601 1$ JSB G*LIBSANALYZE_SDESC_R2 ; extract Length of source : 
08 AE 51 DO QOE2 o0¢ MOVL R1, TEMP_SRC_CEN(SPY ; length of source string ; 
6E DO O0E6 60 MOVL R2, TEMP_SRC_ADDR(SP) ; addr of ist byte of source : 
OOES 60S :+ 
00E9 606 : Compute length and address of destination string and save on stack 3 
OOE9 607 ; (no need to check status after call to LIBSANALYZE_SDESC_R2. If | : 
O0E9 608 ; there was anything arene with destination descriptor, LIBSSCOPY_DXxXDXx6 : 
it st ; would already have complained about it.) : 
50 04 AE DO OOE9 611 28: MOVL _TEMP_DST_ADDR(SP), RO. ; address of destination descr | ; 
02 03 re 44 Boee $16 Hae RSCSB_CLASS(RO), MDSCSK_CLASS_D ; read Like fixed ? : 
; no 3 
OC AE 6 3C OOFS 614 MOVZWL DSCSW_LENGTH(RO), TEMP DST _LEN(SP) : length | 3 
04 AE 04 A0 00 OOF? 615 MOVL  DSCSATPOINTER(ROS, TEMP_DST_ADDR(SP) — ; address ; 
OE 11 pert o16 BRB 4$ ; join common flow : 
00000000'GF 16 OQOOFE 913 3$ JSB G*LIBSANALYZE_SDESC_R2 ; extract length of destination : 
OC AE 51 00 0104 61 MOVL R1, TEMP_DST_CEN(SPY ; length of dest string | ; 
04 AE 52 00 : : ° y MOVL R2, TEMP_DST_ADDR(SP) ; address of ist byte of dest. : 
10¢ 6 § 3; Compute MAX (0, source_length - destination_length). This becomes ; 
+ ? ? ; the number of unmoved Bytes which must eventually end up in RO. : 
56 O8 AE OC AE 13 10¢ 625 4s: SUBL3 TEMP_DST_LEN(SP), TEMP_SRC_LEN(SP), R6 : 
2 18 0112 6 6 BGEQ «65S ; Tf positive | ; 
D6 0114 6 CLRL R6 ; else zero : 

116 6 8 5$: 

18 680 :¢ | 

116 36631 : Compute address of first unmoved source byte as 

116 632; R1 = TEMP_SRC_ADDR + MIN (TEMP_SRC_LEN, TEMP_DST_LEN) 


dD 4 
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AX | 

ul | 

633 ;:- | 
} 


1 
08 AE OC ag D1 1 CMPL {ERP OST _LENCSP), TEMP_ SRC reef na 
0 18 1 BGEQ stination rw th bigger 
51 OC AE 6 3 1 sg TEMP_SRC_ADDR(SP), TEMP_ bst* *PENCSP). R1 ;dst len smaller 
51 08 AE C1 ADDL3 TEMP_SRC_ADDR(SP), TEMP_SRC_LEN(SP), R1 ;src Len smaller 


-_ <~O 
+ Ae 


: a address of one byte beyond last byte written to destination 
: string a 
; ° RS = TEMP_DST_ADDR + TEMP_DST_LEN 


| 
| 
53 OC AE O04 AE C1 Ps ADDL3 TEMP_DST_ADDR(SP), TEMP_DST_LEN(SP), R3 
| 
| 
| 


g¢ 
3 7s up all remaining registers as specified under IMPLICIT OUTPUTS 
; above. 


Final movement must be into RO in order to set up the condition codes 
correctly. 


First, we restore the stack. 


SOOOCOCCOOCOCOCOCOCOCOOOCOOCOOCOOOOOCOOOCOOSCOOO 
PAAAAAAAAASOA PAO OAOOPPOA AOA OOOAAO 
fete U ee ww ww oP 
[OOD NA UNSW O OO NOU SW OOONOuse 


OB kB a a a oh oh 
OODA LS SUN TT OODOOOOOVOSVvIToon 


= ww ADDL2 #STACK_SPACE, SP ; restore stack address 

mm CLRQ R4 3 RS and R5 are zero 

; R3 all set 

52. Ds CLRL R2 3 R2 "y zero 
3 66 ; R1 all set Yes 
50 56 00 3 66 MOVL R6, RO ; Set RO and set condition codes 
3 664 3 properly | 

05 3 665 RSB 3 return to caller 


eed ed ed 2 ed A ed dd ed 
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-SBTTL OTSSSCOPY_R_DX Copy String by Reference 


y+ 

; FUNCTIONAL DESCRIPTION: 

: Copy any string passed by reference to any supported class 
; string passed by descriptor. 


: CALLING SEQUENCE: 


status.wlc.v = OTSSSCOPY_R_DX (SRC_LEN.rwu.v, SRC_ADDR.rt.r, 
DEST_DESC.wt.dx) 


FORMAL PARAMETERS: 
SRC_LEN.rwu.v The number of bytes of data in the source 
SRC_ADDR.rt.r The address of the first of those bytes. | 
DEST_DESC.wt.dx The destination descriptor. The class and dtype 
fields are not disturbed. 
IMPLICIT INPUTS: | 
NONE 


| 
IMPLICIT OUTPUTS: | 


oie to into in tein tion wenenenesnonanensne ee. 


50 000909 09 09 09 09 09 0909 SIN NI NINN NNO OO 
AO OODNAUE WN OO OONOU ES Wi - OOan 


69 NONE 
ROUTINE VALUE: 
COMPLETION CODES: 


The number of unmoved source bytes, or 0 if there are no unmoved 
source bytes. 


SIDE EFFECTS: 


May allocate and deallocate virtu 
May signal OTS$_INVSTRDES, OTS$_I 


stor 
I 


al age. 
NSVIRMEM, OTSS_FATINTERR 


; Displacements off AP 


00000004 SRC_LEN = 4 
p000000e DEST DESC =f, | 
007¢ S .ENTRY OTSSSCOPY_R_DX, “M<R2,R3,R4,R5,R6> ; Entry point 
; Copy string using LIBSSCOPY_R_DX6 
8 aA © MBG SRESABGSARRS."E 7 AD HS Agastevot.sougce 
° s addr of source 


R2 is addr of dest desc 
copy the strin 
check for fatal error 


00000000'GF 16 G“*LIBSSCOPY_R_DX6 


JSB 
SIGNAL_FATAL_ERR 


DDE BB AAAI NINN NI AIA NIAAA NIAAA ANIA AIA AINA 


COOP LLOOOOOFYyY Yr YrYrYrrrrrrrrrrrr,rrrrrrrrr rrr rrrYrrrrrrrrrrrrrr>r>,r 
o 
oO 
“w 


Rongnony 2 OOOOOOOO 


WR =O OODNOA UIE WIN O OONOU EW 


Se Sit itn St i i i NN Ne i te i | 


Ture ee ee ae 


Od at od COO 
PP ruwn 


SNP AAA AAA MAI 


| 
| 
| 


FS OMVMIMIUIT NO FP OS OOOOCOCO 
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, ae 


PWN 9 OODNOAUW EW  O OONAUSE 


F 4 
module 1 
py String by Reference 


=SEP=1984 
~SEP-1984 


¢UP:15:27 EMTGRTL. SReSorSscoPY man: 1 


Compute Length of destination string (into R 
(no need to check status after call to 


there was anything wron 


would already have complained about it.) 


with destinat 


oe tualvze SDESC_R2. If 
on descriptor, LIBSSCOPY_ DXDX6 


MOVL DEST_DESC (AP) ; addr ress of dest descr 
CHP DscsB_ ELASS(ROD © ° pwscsx -ELASS_D ; rad Like fixed ? 
MOVZWL DSCSW_LENGTH(RO), R : length => RI 
RB 2$ 3; join common flow 
$: JSB G*LIBSANALYZE_SDESC_R2 ; get length 
Compute RO = MAX (0, source_len - destination_Length) 
$: MOVZWL SRC_LEN(AP), R2 ; words worth of source Length 
SUBL3 R11, R2, RO ; RO = dest len - src len 
B : if positive 
3s: CLRL RO ; else zero 
: RET ; to calier 
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7 i ee -SBTTL OTSSSCOPY_R_DX6 Copy Strings by reference 
12g 248 ; FUNCTIONAL DESCRIPTION: | 
17 750 ; Copy any class string passed by reference to any supported 
Vf 731 ; class string sessed by goats loter, : Asey 
; | 
i 738 ; CALLING SEQUENCE: 
17 755 ; status.wlc.v = JSB OTSSSCOPY_R_DX6 (SRC_LEN.rwu.v, SRC_ADDR.rt.r, 
O17 £38 ; DEST_DESC.wt.dx) 
7 736 : FORMAL PARAMETERS: | 
$17 760 : SRC_LEN.rwu.v The number of source bytes, in RO. 
017 761 ; SRC_ADDR.rt.r Address of the first of these bytes, in R1. 
Hee 166 : DEST_DESC.wt.dx The destination descriptor. The class and 
gi2 P07 ; dtype fields are not disturbed. This is in R2 
0172 765 ; IMPLICIT INPUTS: 
017 766 ; 
017 767 ; None 
017 768 ; 
017 769 ; IMPLICIT OUTPUTS: 
017 770 ; 
017 qi: RO Number of unmoved bytes remaining in source | 
017 ag: : string. 
017 773; R1 Address one byte beyond the Last byte in the | 
big oe 3 . source string that was moved. 
O172 776 : R Address one byte beyond the destination string | 
017 777: R4 0 
0172 778; RS 0 ; 
0172 «49779; PSL<N> 1 = Source Length less than destination Length 
0172 780; PSL<Z> 1 = Source length equals destination Length 
017 781 ; PSL<V> 0 
bi7 8 3 PSL<C> 1 = Source Length LSSU destination Length 
0172 784 ; ROUTINE VALUE: 
big 18 : COMPLETION CODES: 
0172 787: See IMPLICIT OUTPUTS, above. 
017 788 ; 
Oi7g 289 : SIDE EFFECTS: 
172 791: May allocate and deallocate virtual storage. | 
Ht 6 : May signal OTSS$S_INVSTRDES, OTSS_INSVIRMEM, OTSS_FATINTERR. | 
173 79% ie- | 
17 795 
17 £38 3; Temp locations on stack 
17 79 
$08 0 017 P38 TEMP_SRC_ADDR = 0 
4 017 799 TEMP_DST_ADDR = 4 
Se Hire PTE Lt 
9000015 17 $2 STACR_SPACE = 16 


4 
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17 3 : 
Mf : OTSSSCOPY_R_DX6:: | : 
i $ ; Save input arguments (in RO = R2) onto stack : 
5E 10 c2 17 8 : SUBL2 #STACK_SPACE, SP ; make space on stack : 
O08 AE 50 3C O17 MOVZWL RO, TEMP_SRC_LEN(SP) ; Save source Length : 
6€ 2] ° 17 10 MOVL R1, TEMP_SRC_ADDR(SP) ; Save source descr addr : 
04 AE ie Ves He : MOVL R2, TEMP_DST_ADDR(SP) ; Save destination desc addr : 
Hf 18 : Copy string using LIBSSCOPY_R_DX6 ‘ 
G0000000'GF 16 01 | i JSB G*LIBSSCOPY_R_DX6 ; go copy string : 
4 4 16 : SIGNAL FATAL_ERR ; check for fatal error : 
018¢ 18 ; Compute length and address of destination string and save on stack ; 
018C 19 ; (mo need to check status after call to LIBSANALYZE_SDESC_R2. If : 
018C 30 3; there was anything wrong with destination descriptor, LIBSSCOPY_DXDX6 : 
biae : 1; would already have complained about it.) : 
50 04 AE DO 018C 4 5 : MOVL TEMP DST_ADDR(SP), RO. ; address of destination descr ; 
02 03 o 44 Bide 3 : a DSCSB_CLASS(RO), WDSCSK_CLASS_D ; read Like fixed ? ‘ 
;_ No 3 
OC AE 60 3C 8138 Bs6 MOVZWL OSC$W_LENGTH(RO), TEMP DST_LEN(SP) ; Length ; 
04 AE 04 A0 D0 019A MOVL  DSCSATPOINTER(ROS, TEMP_DST_ADDR(SP)  ; Length : 
O& 11 Ries 3 BRB es : join common flow : 
Q00000000°GF 16 OIAl 830 18: JSB G*LIBSANALYZE_SDESC_R2 ; extract Length of destination : 
OC AE 51 DO OQOIA7~ 831 MOVL R1, TEMP_DST_CEN(SP) ; length of dest string | : 
04 AE 52 00 an 4 $36 MOVL R2, TEMP_DST_ADDR(SP) ; address of ist byte of dest. : 
1AF He: ; Compute MAX (0, source_length - destination ey yet This becomes | : 
< B34 ; the number of unmoved Bytes which must eventually end up in RO. : 
56 OB AE OC AE C3 IAF 837 2$: suBL 5 TEMP_DST_LEN(SP), TEMP_SRC,LEN(SA) RG : 
56 DS 0187 839 CLRL R6 : else zero : 
01B9 840 3 : 
gsi : 
$189 gc$ : Compute address of first unmoved source byte as | : 
189 B44 ; R1 = TEMP_SRC_ADDR + MIN (TEMP_SRC_LEN, TEMP_DST_LEN) | : 
08 AE OC ag D1 1B9 28 : CMPL [EMP OST LEMS?) TEMP_SRC_LEN(SP) 3 
0 18 018 4 BGEQ 4 ; Destination length bigger : 
51 OC AE 6E a i 48 ADDL3 TEMP_SRC_ADDR(SP), TEMP_DST_LEN(SP), R1 ;dst len smaller | : 
51 08 AE 6E (C1 if 29 $3: ADDL3 TEMP_SRC_ADDR(SP), TEMP_SRC_LEN(SP), R1 ;src len smaller | : 
ee BRE | 
1€C 54 : Compute address of one byte beyond last byte written to destination 3 
1¢C 55 ; string HE : 
rec 36 : R3 = TEMP_DST_ADDR + TEMP_DST_LEN ; 
53 OC AE O04 AE (C1 1c¢ 38 : ADDL3 TEMP_DST_ADDR(SP), TEMP_DST_LEN(SP), R3 | 


I 4 
met OTSESCOPYR bxercopee $f eings by referenc a 1984 99: 13:3} CTeRTL L.S SRE T He OPY. MAR; 1 —- 3) 
1p : oth, all remaining registers as specified under IMPLICIT OUTPUTS 
1b 4 Final movement must be into RO in order to set up the condition codes 
19 68 correctly. 
18 Ties we restore the stack. 
5E 10 CO 4 $9 ADDL2 #STACK_SPACE, SP ; restore stack address 
54 7C 18 4 CLRQ RG Re = R5 wre zero 
aM Ee i Saye i thet 
50 56 00 44 76 MOVL R6, RO ath A set condition codes 
05 01DC 87 RSB ; to caller 
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~SBTTL CHECK _FOR_FATAL_ERROR 


; FUNCTIONAL DESCRIPTION: 
: ; This routine looks at current status in RO and if it finds one of the 


fatal LIBS errors, its causes the corresponding OTS$ error to be 
; Nonatled. 


if it finds: it signals: 

LIB$_ pareoe. ie OTS$_ FATINTERR 
LIBS_INVSTRDES OTS$_INVSTRDES 
LIBS_ INSVIRMEM OTSS$_INSVIRMEM 
LIBS_ sr a OTS$_WRONUMARG 
LIBS_ INVARG OTSS_INVSTRDES 


; CALLING SEQUENCE: 


JMP CHECK _FOR_FATAL_ERROR with INPUT_STATUS.rlc.v in RO 


; FORMAL PARAMETERS: 


INPUT_STATUS.rlc.v In RO, the status to be checked. 
- eaters we know it is not a success 
status. 


IMPLICIT INPUTS: 


None 
IMPLICIT OUTPUTS: 
NONE 


; : ROUTINE VALUE : 
; COMPLETION CODES: 


Never returns 


; SIDE EFFECTS: 


Will signal some error. 


CHECK_FOR_FATAL_ERROR: 


cwPL RO, #LIBS_INVSTRDES 
PUSHL #OTS$_INVSTRDES 
BRB FATAL 


1$: 


CMPL RO, LIBS_INSVIRMEM 
PUSHL  #OTS$_INSVIRMEM 
BRB FATAL 


LIBRTL. Sac JOTSSCOPY.MAR; 1 
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co oe a 


K 4 | 
it eal CHECK FORCPATALSERROR TECSEDIORS RSFRDD UMGNTE.SRESB OER? anes P28" C%8)| 


1FF 2$: 
00000000 ' 8F g »} 1FF CMPL RO, #LIBS_FATERRLIB 
1 § § BNEQ 3$ 
00000000 ' 8F 0D PUSHL #OTSS_FATINTERR 
4 11 : rt 3s BRB FATAL 
00000000'8F 50 01 1 tg CMPL RO, #LIBS_INVARG | 
os 12 1 4 BNEQ 4$ 
0000UV000'S8F oD 19 944 PUSHL #OTS$_INVSTRDES 
13 11°=«0 if 32 43 BRB FATAL 
00000000'8F 50 01 0 1 3c9 CMPL RO, #LIB$_WRONUMARG 
08 12 8 948 BNEQ 
00000000'8F DD 022A 949 PUSHL #OTS$_WRONUMARG 
02 11 0230 950 11) FATAL 
8 $5 951 5$: : 
50 oD 226 PUSHL RO 3 prepare to signal incoming 
0234 95 : error 
OO000000"GF 01 FB 8 3 oee FATAL: CALLS #1, G*LIBSSTOP ; to never return 
0238 956 
Osee 957 
0238 46958 END : End of module OTS$SCOPY | 
| 
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Symbol table 


CHECK FOR_FATAL_ERROR 
DESCR 


$SC 
SFR 
SFREEN DD6 
+3 A a BD_R6 


$ 

$ 

$ 
$_FATERRLIB 
$S_INSVIRMEM 
$- 


NVARG 
INVSTRDES 
$"WRONUMARG 


STACK SPACE 
TEMP_BST_ADDR 


TEMP SRC_LEN 


PSECT name 


$AB 
-OTSSDATA 
~OTSSCODE 


00001D 


88 
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Allocation 


- String copying module 
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PSECT No. Attributes 
0.) 00 ¢ QO.) NOPIC USR CON ABS 
8°} 1 1.) NOPIC USR CON ABS 
an ¢ ( ¢°} PIC USR CON” REL 
1.) ( ) PIC USR CON” REL 


16-SEP-1984 00:33:11 YAX/VMS Macro V04-00 
o78fp=|98¢ 19: 78:)) UCTARTL. SRCOTSSCOPY.MAR;1 © 


LCL oot te NOEXE NORD NOWRT NOVEC BYTE 
LCL NOS EXE RD WRT NOVEC BYTE 
LCL NOSHR NOEXE RD WRT NOVEC LONG 
LCL SHR EXE RD NOWRT NOVEC LONG 
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OTSSSCOPY " - String copying module 
VAX=-11 Macro Run Statistics 


: 
¢oeeceeoeon eee aae ma ema mee oem + 


Phase Page faults CPU Time Elapsed Time 


Symbol table output 

Psect synopsis output 
Cross-reference output 

Assembler run totals 569 


ae i | G05 H8088 8 
1 24 :00: : ‘ 
00 : : 


0 
Pass 0 
Symbol table sort 9 : 
Pass 2 16 : 
0 
0 


The working set Limit was 1350 pages. 


37480 bytes (74 pages) of virtual memory were used to buffer the intermediate 
There were 40 pages of symbol table space allocated to hold 579 non-local and 
958 source Lines were read in Pass 1, producing 28 otject records in Pass 2. 


11 pages of virtual memory were used to define 9 macros. 


perm ree em ne ee eee meme woe + 


: Macro Library statistics H 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBJSTARLET.MLB;2 5 
604 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSSCOPY/OBJ=OBJ$:OTSSCOPY MSRC$:OTSSCOPY/UPDATE=(ENH$:OTSSCOPY) 


REL MRSA CIT TOR 


gode. 
5 local symbols. 
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